;Skrypt bY SabiK
;leczenie-butle-bronie
;Wersja 1.5
;Skrypt leczy bandazami oraz po ustawieniu zmiennych mozna ustawic pod bindy zakladanie broni
;oraz picie mixa odswiezenia pod binda lub automatycznie gdy stamina jest mniejsza od 15
;Standartowo bindy ustawione sa nastepujaco:
;F3 - arm pika/hala,  F4 - arm kris i pawez/katana i pawez,  insert - arm widly i pawez/wielki miecz i pawez
;F5 - mix odswiezenia,  F6 - mix odtrutki,  F7 - wybuch z precastem  F8 - wybuch w siebie,  F9 - mix dexa,  F10 - mix str,  F11 - mix trutki,  F12 - mix leczenia
set %bron 1 		;Tu ustaw jakim typem broni walczysz (0 - Brak ubierania broni, 1 - Szpady, 2 - Miecze)
set %odsw 3 		;Tu ustaw czy skrypt ma pic Miksa Odswiezenia gdy ma ponizej 15staminy albo gdy wcisniesz binda (0 - Bez mixa odswiezenia, 1 - Auto, 2 - Bind, 3 - to i to)
set #sysmsgcol 63
event sysmessage Skrypt [leczenie-butle-bronie] odpalony (bY SabiK)
wait 1

start:
if H in #charstatus
   goto start
set %bandaze 0
set %licz 0

leczenie:
if %bandaze = 1
   goto butle
if #hits < #maxhits
{
   finditem zlf C
   if #findkind = -1
      goto butle
   if #findkind = 1
   {
      ignoreitem #findid
      goto leczenie
   }
   if #findkind = 0
   {
      set #lobjectid #findid
      event macro 17
      set %licz 0
      czekaj_leczenie:
      set %licz %licz + 1
      if #targcurs = 1
         goto dalej_leczenie
      onhotkey f5 			;mix odswiezenia pod F5
         gosub odswiezenia
      if %licz > 30
         goto butle
      goto czekaj_leczenie
      dalej_leczenie:
      scanjournal 1
      wait 1
      wait 1
      if I_am_frozen in #journal
         goto leczenie
      set %hp #hits + 3
      event macro 23
      if Kogo_Chcial in #sysmsg
         goto dalej_leczenie
      set %bandaze 1
   }
}

butle:
if #targcurs = 1
{
   if #hits < #maxhits
      goto dalej_leczenie
   goto start
}
if #hits < #maxhits
{
   if %bandaze = 0
      goto start
}
if %bron = 0
   goto butle3
if %bron = 2
   goto butle2
onhotkey f3 			;arm pika
   gosub bron1
onhotkey f4 			;arm kris i pawez
   gosub bron2
onhotkey insert 			;arm widly i pawez
   gosub bron3
goto butle3
butle2:
onhotkey f3 			;arm halabarda
   gosub bron4
onhotkey f4 			;arm katana i pawez
   gosub bron5
onhotkey insert 			;arm wielki miecz i pawez
   gosub bron6
butle3:
if %odsw = 0
   goto butle5
if %odsw = 1
   goto butle4
onhotkey f5 			;mix odswiezenia pod F5
   gosub odswiezenia
butle4:
if %odsw = 2
   goto butle5
if #stamina < 8
   gosub odswiezenia 		;auto picie mixa odswiezenia
butle5:
onhotkey 1 ctrl 			;bandaze
   gosub bandage
onhotkey f9 			;mix odtrutki pod F6
   gosub odtrutka
;onhotkey f7 			;wybuch pod F7
;   gosub wybuch
onhotkey f8 			;wybuch w siebie pod F8
   gosub wybuchself
onhotkey f10 			;mix sily pod F9
   gosub sily
onhotkey f10 ctrl 			;mix dexa pod F10
   gosub dexa
onhotkey f11 			;mix trutki pod F11
   gosub trutka
onhotkey f12 			;mix leczenia pod F12
   gosub leczenia
set %licz1 %licz1 + 1
if %licz1 < 65
   goto leczenie
if #stamina = 0
   goto leczenie
if #stamina <= 7
{
   set #sysmsgcol 1080
   event sysmessage Masz #stamina staminy!
   set %licz1 0
}
if #hits = 0
   goto leczenie
if #hits <= 25
{
   set #sysmsgcol 1080
   event sysmessage Masz #hits hp!
   set %licz1 0
}

czekaj:
set %licz %licz + 1
if #hits = #maxhits
   goto start
if #hits > %hp
   goto start
if %licz > 70
   goto start
if #sex = 0
{
   if #sysmsg = Wyleczyles_sie_kompletnie.
      goto start
   if #sysmsg = Wyleczyles_sie.
      goto start
   if #sysmsg = Przestales_sie_leczyc.
      goto start
}
if #sex = 1
{
   if #sysmsg = Wyleczylas_sie_kompletnie.
      goto start
   if #sysmsg = Wyleczylas_sie.
      goto start
   if #sysmsg = Przestalas_sie_leczyc.
      goto start
}
if #sysmsg = Nie_udalo_ci_sie_wyleczyc_tej_osoby.
   goto start
if #sysmsg = Anulowano.
   goto start
if Your_skill_in_Healing in #sysmsg
   goto start
goto leczenie


sub odswiezenia
finditem zuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa odswiezenia
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Wypiles miksa odswiezenia
return

sub trutka
finditem avf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa trutki
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Wypiles miksa trutki
return

sub sily
finditem xuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa sily
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Wypiles miksa sily
return

sub dexa
finditem yuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa dexa
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Wypiles miksa dexa
return

sub leczenia
finditem uuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa leczenia
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Uzyles miksa leczenia
return

sub odtrutka
finditem nuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa odtrutki
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Uzyles miksa odtrutki
return

sub wybuch
finditem tuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa wybuchowego
   return
 }
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Uzyles miksa wybuchowego
return

sub wybuchself
finditem tuf C
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie masz miksa wybuchowego
   return
 }
wyb:
set %licz 0
set #lobjectid #findid
event macro 17
petla:
set %licz %licz + 1
if #targcurs = 1
   goto dalej
if %licz > 35
   goto wyb
goto petla
dalej:
event macro 23
event macro 23
event macro 23
omin:
set #sysmsgcol 88
event sysmessage Rzuciles w siebie miksa wybuchowego
return

sub bron1
finditem cuo C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz piki
    return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles pike
return

sub bron2
finditem vrh C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz krisa
   goto bron21
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles krisa
bron21:
wait 20
finditem cik C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz pawezy
   return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles pawez
return

sub bron3
finditem srh C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz widel
   goto bron31
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles widly
bron31:
wait 20
finditem cik C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz pawezy
   return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles pawez
return

sub bron4
finditem yth C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz halabardy
   return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles halabarde
return

sub bron5
finditem omh C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz katany
   goto bron51
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles katane
bron51:
wait 20
finditem cik C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz pawezy
   return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles pawez
return

sub bron6
finditem bph C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz wielkiego miecza
   goto bron61
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles wielki miecz
bron61:
wait 20
finditem cik C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz pawezy
   return
}
set #lobjectid #findid
event macro 17
set #sysmsgcol 88
event sysmessage Zalozyles pawez
return

sub bandage
bandage:
   finditem zlf C
   if #findkind = -1
      return
   set #lobjectid #findid
   event macro 17
return